
!  --------------------------------------------------
!  Silverfrost FTN95 for Microsoft Visual Studio
!  Free Format FTN95 Source File
!  --------------------------------------------------

WINAPP 0,0,'CWP_ICO.RC'

Program penghitung
implicit none
include <windows.ins>
integer i,r(7)
character*50 str
data r/0,1,0,0,0,0,0/
!integer ans,N,x,i
!parameter (N=1000)
!real*8 y(N),p1,p2,p3

!p1=1.5
!p2=150.0
!p3=15.0
!x=0
!do i=1,N
   ! y(i) = p1*sin(x/p3)*exp(-x/p2)
   ! x=x+1
   ! end do
    
external about , method2, method1
! Menu
i = winio@('%ww[no_border]%ca[Program Hitungan]&')
i = winio@('%mn[&File[E&xit]]&','EXIT')
i = winio@('%mn[&Edit[Cu&t]]&','CUT')
i = winio@('%mn[[&Copy]]&','COPY')
i = winio@('%mn[&About[&About Program]]&',about)

! Isi program
i = winio@('%bfSoal Umum%2nl&')
i = winio@('%sf%7`ga&',r(1),r(2),r(3),r(4),r(5),r(6),r(7))
i = winio@('%^rb[Soal 1A]%2nl&',r(1),update1)
i = winio@('%rb[Soal 1B]%2nl&',r(2))
i = winio@('%rb[Soal 1C]%2nl&',r(3))
i = winio@('%rb[Soal 1D]%3nl&',r(4))
i = winio@('%bfSoal Aplikasi%2nl&')
i = winio@('%sf%rb[Soal Aplikasi 1]%2nl&',r(5))
i = winio@('%rb[Soal Aplikasi 2]%2nl&',r(6))
i = winio@('%rb[Soal Aplikasi 3]%2nl&',r(7))
i = winio@('%cn%^bt[Method]&',method1)
write(str,*)r(2)
i = winio@('%2nl%ob%42st%cb',str)

!Contoh pembuatan grafik
!ans = winio@('%pl[x_axis=x,y_axis=y,title="Contoh",colour=red]',+400,300,N,0.0D0,1.0D0,y)
!------------------------
end

integer function about()
implicit none
include <windows.ins>
integer ans
ans = winio@('%ca[About Program]&')
ans = winio@('%cnCreated By :%2nl&')
ans = winio@('%cnWilly Setiawan - 13508043%2nl&')
ans = winio@('%cnEdwin Romelta - 13508052%4nl&')
ans = winio@('%cn%9`bt[OK]')
about = 1
end

integer function update1()
implicit none
include <windows.ins>
integer n,id
n = winio@('abc')
method1 = 1
return
end

integer function method2()
implicit none
include <windows.ins>
integer n
n = winio@('def')
return
end
